The Macintosh Demo Applications CD/Apple-MacintoshDemoApplicationsCD-1.0-1992.iso/More Information/Persuasion/Interactive/Interactive.rsrc/TEXT_1159.txt

Text File | 1988-11-03 | 494 b | 26 lines

Â#
set &H = (spriteh[14] )
set &V = ( spritev[14])
puppet sprite 17 true
set &A = 0
if &A = 5 then skip 6
set &A = &A + 1
set spriteh[17] = &H
set spritev[17] = &V
govar frame
skip -5
puppet sprite 17 false
govar frame
puppet sprite 12 true
puppet sprite 14 false
set spritev[12] = (&V - 7 )
set spriteh[12] = (&H - 72)
set spriteh[10] = &H
set spritev[10] = &V
immediate sprite 10 false
govar frame
set &A = 0
set spritev[14] = H88
immediate sprite 10 true
when mouseup then
call c18uÀá